1 scrolltexts.
PRESENTS - CODE DEMO NUMBER 3 - NG SOME HELP FROM THIS IDEA. W - - A FAST SHAKE-MAKER. EASY TO LISTEN TO, AND NOT TOO EXTREME. EASY BUILT-UP, BUT ANYWAY GOOD IN IT'S OWN WAYS. LISTEN TO IT MANY TIMES......... - CODE DEMO NUMBER 3 - WELL HERE WE GO AGAIN WITH ANOTHER ISSUE OF CODE DEMO. I HOPE THAT ALL YOU WANNA BE CODERS ARE GETTING SOME HELP FROM THIS IDEA. WELL ALL THE CREDS ARE AS THE SAME AS THE LAST, WHICH ARE THE SAME AS THE FIRST! -
SPRITE NUMBER STA $D015 - SPRITE REGISTER STA $D01C - MULTI COLOUR SPRITE REGISTER LDA #$A8 - NOTE 1 STA $07F8 - NOTE 2 LDA #$0C - COLOUR 1 LDY #$0B - COLOUR 2 LDX #$07 - SPRITE COLOUR STA $D025 - MULTI COLOUR SPRITE REGI 1 STY $D026 - MULTI COLOUR SPRITE REGI 2 STX $D027 - SPRITE COLOUR REGISTER LDA #$A0 - Y SPRITE POSISTION LDY #$19 - X SPRITE POSISTION STA $D001 - Y REGISTER STY $D000 - X REGISTER RTS - THIS IS WHERE THE SPRITE IS LOADED INMEMORY. SAY THE SPRITE IS AT $0C00, THEN YOU WOULD LOAD #$30. THE EASIEST WAY TO FIND OUT IS IN YOUR REPLAY MON TYPE THIS; N $0C00/64 AND HIT RETURN. - !PBY SANDMAN/MGT FOR TWILIGHT - A TUNE SPECIALLY DESIGNED FOR THE GROUP TWILIGHT. RAVE OF TWILIGHT WANTED ME TO COMPOSE ONE, AND THIS ONE IT CAME TO BE.HEAVY, WITH SOME COOL SOUNDS. - . - I THE ICEWRITER V3.0 PRO. INFO-PAGE! F1/F2 : PAGE FORWARD/BACKWARD F3/F4 : INC/DEC BORDERCOLOR F5/F6 : CUT/PASTE PAGE F7 : HELPPAGE(THIS ONE) F8 : SET ENDMARK CRTL+1-4 : FLASH-COLORS RUN/STOP : EXIT TO THE MENU SHIFT+L/C/R : LEFT/CENTER/RIGHT LINE COMM.+L/C/R : LEFT/CENTER/RIGHT PAGE SHIFT+I/D : INSERT/DELETE LINE SHIFT+RETURN : CENTER CURSOR SHIFT+K : KEYREPEAT ON/OFF SHIFT+M : MUSIC ON/OFF SHIFT+W : WORDWRAP ON/OFF SHIFT+F : LINE FLASH COMM.+W : WORD FLASH SHIFT+X : EXT. FLASH SHIFT+^ : DELETE LINE FROM CURSOR SHIFT/COMM.+P: CUT PASTE LINE REMEMBER TO SET THE ENDMARK! PRESS SPACE! THE ICEWRITER V3.0 PRO. CODED BY ICEBALL OF EPIC! - TEST THE NOTE (RUN/STOP TO EXIT) EDIT THE TEXT (RUN/STOP TO EXIT) EDIT ALL THE COLORS EDIT THE MUSICPARAMETERS LOAD SOME MUSIC ($1000-$2800) LOAD AN 1X1 FONT INVERT THE 1X1 FONT CLEAR ALL TEXTPAGES SHOW TEXTEDITOR-HELPSCREEN SHOW THE DIRECTORY ON THE DISK LOAD SOME TEXTPAGES SAVE SOME TEXTPAGES LOAD ALL THE COLORS SAVE ALL THE COLORS PACK AND SAVE THE NOTE USE <CRSR>-KEYS AND RETURN TO SELECT! - INIT: LDA #$00 , LDX #$00 , LDY #$00 JSR $1000 PLAY: JSR $1003 PLAY MUSIC WITH DOUBLESPEED: N - - SPACE TO SAVE! - SPRITE NUMBER STA $D015 - SPRITE REGISTER STA $D01C - MULTI COLOUR SPRITE REGISTER LDA #$A8 - NOTE 1 STA $07F8 - NOTE 2 LDA #$0C - COLOUR 1 LDY #$0B - COLOUR 2 LDX #$07 - SPRITE COLOUR STA $D025 - MULTI COLOUR SPRITE REGI 1 STY $D026 - MULTI COLOUR SPRITE REGI 2 STX $D027 - SPRITE COLOUR REGISTER LDA #$A0 - Y SPRITE POSISTION LDY #$19 - X SPRITE POSISTION STA $D001 - Y REGISTER STY $D000 - X REGISTER RTS - THIS IS WHERE THE SPRITE IS LOADED INMEMORY. SAY THE SPRITE IS AT $0C00, THEN YOU WOULD LOAD #$30. THE EASIEST WAY TO FIND OUT IS IN YOUR REPLAY MON TYPE THIS; N $0C00/64 AND HIT RETURN. - SORRY BUT I FORGOT ABOUT THIS REGI INTHE DEMO. $07F8 IS THE SPRITE POINTER. THERE ARE 8 SPRITES ON THE 64 NUMBERED FROM 0-7. THEY ARE FROM $07F8-$07FF. YOU CAN ALSO DISPLAY SPRITES IN ALL BANKS. BUT LIKE PLOTTING A LOGO YOU MUST UP YOUR SPRITE SCREEN BY $4000. SO IF YOU WANTED TO DISPLAY A SPRITE IN BANK 2, THEN YOU WOULD GO LIKE THIS; LDA #$20 STA $47F8 ON A BANK 3 SCREEN #$20 WOULD BE $0800, BUT IN BANK 2 #$20 IS $4800. BANK 1 IT WOULD BE $8800. YOU CAN STILL USE THE SAME IDEA TO FIND OUT WHAT TO LOAD AS STATED EARLY, AS THE NUMBERS TO LOAD RESET AT EACH BANK, IE BANK 1 IS FROM $20-$FF, AND THE OTHER BANKS ARE THE SAME. GOT THAT? LDA #$01 STA $D017 - Y EXPAND -AND- STA $D01D - X EXPAND -AND- STA $D01B - SPRITE/TEXT PRIORITY I DON'T THINK THAT THESE NEED ANYMORE EXPLAINATION. ^ LDA $0A00 - SPRITE ANIMATION TABLE STA $07F8 INC ^+1 - INCRESE LO-BYTE TABLE LDA ^+1 - LOAD LO-BYTE TABLE CMP #$1F - IS IT #$1F BNE NO - IF NOT THE RETURN LDA #$00 - IF YES THEN REST TABLE STA ^+1 NO RTS UNDERSTAND ALL THAT? PRETTY SIMPLE I WOULD SAY! WELL THAT IS THE END OF ANOTHER CODE DEMO AND NEXT TIME I WILL DEAL WITH TEXT COLOURS AND PLOTTING IN MORE DETAILTHAN THE FIRST ONE. WELL TILL THEN, KEEP IT UP, YOU'LL GET THERE IN THE END. /STEIGER -